home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Recipes Da24348892001.psc / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-09  |  41.0 KB  |  1,101 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmMain 
  4.    BackColor       =   &H00FF8080&
  5.    ClientHeight    =   6585
  6.    ClientLeft      =   165
  7.    ClientTop       =   450
  8.    ClientWidth     =   11010
  9.    DrawMode        =   11  'Not Xor Pen
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00FFFFFF&
  20.    Icon            =   "frmMain.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   6585
  23.    ScaleWidth      =   11010
  24.    StartUpPosition =   2  'CenterScreen
  25.    Begin MSComctlLib.Toolbar Toolbar1 
  26.       Align           =   1  'Align Top
  27.       Height          =   360
  28.       Left            =   0
  29.       TabIndex        =   11
  30.       Top             =   0
  31.       Width           =   11010
  32.       _ExtentX        =   19420
  33.       _ExtentY        =   635
  34.       ButtonWidth     =   609
  35.       ButtonHeight    =   582
  36.       Wrappable       =   0   'False
  37.       Appearance      =   1
  38.       Style           =   1
  39.       ImageList       =   "imlToolbarIcons"
  40.       _Version        =   393216
  41.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  42.          NumButtons      =   26
  43.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  44.             Enabled         =   0   'False
  45.             Key             =   "save"
  46.             Description     =   "Save Recipe"
  47.             Object.ToolTipText     =   "Save Recipe"
  48.             ImageIndex      =   1
  49.          EndProperty
  50.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Style           =   4
  52.          EndProperty
  53.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  54.             Key             =   "exit"
  55.             Object.ToolTipText     =   "Exit"
  56.             ImageIndex      =   2
  57.          EndProperty
  58.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  59.             Style           =   4
  60.          EndProperty
  61.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  62.             Key             =   "print"
  63.             Object.ToolTipText     =   "Print"
  64.             ImageIndex      =   3
  65.          EndProperty
  66.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  67.             Style           =   4
  68.          EndProperty
  69.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  70.             Key             =   "deleterecipe"
  71.             Description     =   "Delete Recipe"
  72.             Object.ToolTipText     =   "Delete Recipe"
  73.             ImageIndex      =   4
  74.          EndProperty
  75.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  76.             Key             =   "deletecategory"
  77.             Description     =   "Delete Category"
  78.             Object.ToolTipText     =   "Delete Category"
  79.             ImageIndex      =   5
  80.          EndProperty
  81.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  82.             Style           =   4
  83.          EndProperty
  84.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  85.             Key             =   "insertrecipe"
  86.             Description     =   "Insert Recipe"
  87.             Object.ToolTipText     =   "Insert Recipe"
  88.             ImageIndex      =   6
  89.          EndProperty
  90.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.             Key             =   "insertcategory"
  92.             Description     =   "Insert Category"
  93.             Object.ToolTipText     =   "Insert Category"
  94.             ImageIndex      =   7
  95.          EndProperty
  96.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  97.             Style           =   4
  98.          EndProperty
  99.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  100.             Key             =   "importrecipe"
  101.             Object.ToolTipText     =   "Import Recipe"
  102.             ImageIndex      =   8
  103.          EndProperty
  104.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  105.             Key             =   "exportrecipe"
  106.             Object.ToolTipText     =   "Export Recipe"
  107.             ImageIndex      =   9
  108.          EndProperty
  109.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  110.             Style           =   4
  111.          EndProperty
  112.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  113.             Key             =   "backup"
  114.             Description     =   "Backup Database"
  115.             Object.ToolTipText     =   "Backup Database"
  116.             ImageIndex      =   10
  117.          EndProperty
  118.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  119.             Key             =   "restore"
  120.             Description     =   "Restore Database"
  121.             Object.ToolTipText     =   "Restore Database"
  122.             ImageIndex      =   11
  123.          EndProperty
  124.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  125.             Style           =   4
  126.          EndProperty
  127.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  128.             Style           =   4
  129.          EndProperty
  130.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  131.             Style           =   4
  132.          EndProperty
  133.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  134.             Key             =   "searchepecurious"
  135.             Description     =   "Search Epecurious"
  136.             Object.ToolTipText     =   "Search Epecurious Recipes"
  137.             ImageIndex      =   15
  138.          EndProperty
  139.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  140.             Key             =   "searchfoodtv"
  141.             Description     =   "Search FoodTv"
  142.             Object.ToolTipText     =   "Search FoodTv Recipes"
  143.             ImageIndex      =   16
  144.          EndProperty
  145.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  146.             Key             =   "searchqvcrecipes"
  147.             Description     =   "Search QVC Recipes"
  148.             Object.ToolTipText     =   "Search QVC Recipes"
  149.             ImageIndex      =   17
  150.          EndProperty
  151.          BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  152.             Key             =   "searchhungrymonster"
  153.             Object.ToolTipText     =   "Search Hungry Monster Recipes"
  154.             ImageIndex      =   18
  155.          EndProperty
  156.          BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  157.             Key             =   "searchcdkitchen"
  158.             Object.ToolTipText     =   "Search CDKitchen Recipes"
  159.             ImageIndex      =   20
  160.          EndProperty
  161.          BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  162.             Key             =   "searchcopykat"
  163.             Object.ToolTipText     =   "Search CopyKat Recipes"
  164.             ImageIndex      =   21
  165.          EndProperty
  166.       EndProperty
  167.    End
  168.    Begin VB.Timer Timer1 
  169.       Interval        =   1000
  170.       Left            =   10875
  171.       Top             =   1200
  172.    End
  173.    Begin MSComctlLib.StatusBar StatusBar1 
  174.       Align           =   2  'Align Bottom
  175.       Height          =   255
  176.       Left            =   0
  177.       TabIndex        =   10
  178.       Top             =   6330
  179.       Width           =   11010
  180.       _ExtentX        =   19420
  181.       _ExtentY        =   450
  182.       _Version        =   393216
  183.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  184.          NumPanels       =   5
  185.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  186.             Alignment       =   1
  187.             Object.ToolTipText     =   "Current Time"
  188.          EndProperty
  189.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  190.             Alignment       =   1
  191.             Object.ToolTipText     =   "Current Date"
  192.          EndProperty
  193.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  194.             Alignment       =   1
  195.             Object.Width           =   5292
  196.             MinWidth        =   5292
  197.             Object.ToolTipText     =   "Total Recipes in Current Category"
  198.          EndProperty
  199.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  200.             Alignment       =   1
  201.             Object.Width           =   4145
  202.             MinWidth        =   4145
  203.             Object.ToolTipText     =   "Total Recipes in Recipes Database"
  204.          EndProperty
  205.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  206.             Alignment       =   1
  207.             Object.Width           =   4145
  208.             MinWidth        =   4145
  209.             Object.ToolTipText     =   "Total Categories"
  210.          EndProperty
  211.       EndProperty
  212.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  213.          Name            =   "Comic Sans MS"
  214.          Size            =   8.25
  215.          Charset         =   0
  216.          Weight          =   700
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.    End
  222.    Begin VB.TextBox txtCategory 
  223.       BackColor       =   &H00FFFF80&
  224.       BeginProperty Font 
  225.          Name            =   "Comic Sans MS"
  226.          Size            =   8.25
  227.          Charset         =   0
  228.          Weight          =   700
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       Height          =   285
  234.       Left            =   4440
  235.       Locked          =   -1  'True
  236.       TabIndex        =   1
  237.       Top             =   735
  238.       Width           =   3015
  239.    End
  240.    Begin VB.CommandButton cmdNormalize 
  241.       Caption         =   "&Normalize DB"
  242.       Height          =   375
  243.       Left            =   8400
  244.       TabIndex        =   5
  245.       Top             =   450
  246.       Visible         =   0   'False
  247.       Width           =   1935
  248.    End
  249.    Begin MSComctlLib.ImageList ImageList1 
  250.       Left            =   9450
  251.       Top             =   1350
  252.       _ExtentX        =   1005
  253.       _ExtentY        =   1005
  254.       BackColor       =   -2147483643
  255.       ImageWidth      =   16
  256.       ImageHeight     =   16
  257.       MaskColor       =   -2147483643
  258.       UseMaskColor    =   0   'False
  259.       _Version        =   393216
  260.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  261.          NumListImages   =   5
  262.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.             Picture         =   "frmMain.frx":08CA
  264.             Key             =   ""
  265.          EndProperty
  266.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.             Picture         =   "frmMain.frx":11A4
  268.             Key             =   ""
  269.          EndProperty
  270.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.             Picture         =   "frmMain.frx":15F6
  272.             Key             =   ""
  273.          EndProperty
  274.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.             Picture         =   "frmMain.frx":1A48
  276.             Key             =   ""
  277.          EndProperty
  278.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.             Picture         =   "frmMain.frx":1E9A
  280.             Key             =   ""
  281.          EndProperty
  282.       EndProperty
  283.    End
  284.    Begin VB.TextBox txtInstructions 
  285.       BackColor       =   &H00FFFF80&
  286.       BeginProperty Font 
  287.          Name            =   "Comic Sans MS"
  288.          Size            =   8.25
  289.          Charset         =   0
  290.          Weight          =   700
  291.          Underline       =   0   'False
  292.          Italic          =   0   'False
  293.          Strikethrough   =   0   'False
  294.       EndProperty
  295.       Height          =   3735
  296.       Left            =   4425
  297.       MultiLine       =   -1  'True
  298.       ScrollBars      =   2  'Vertical
  299.       TabIndex        =   4
  300.       Top             =   2535
  301.       Width           =   6495
  302.    End
  303.    Begin VB.TextBox txtAuthor 
  304.       BackColor       =   &H00FFFF80&
  305.       BeginProperty Font 
  306.          Name            =   "Comic Sans MS"
  307.          Size            =   8.25
  308.          Charset         =   0
  309.          Weight          =   700
  310.          Underline       =   0   'False
  311.          Italic          =   0   'False
  312.          Strikethrough   =   0   'False
  313.       EndProperty
  314.       ForeColor       =   &H00000000&
  315.       Height          =   285
  316.       Left            =   4440
  317.       TabIndex        =   3
  318.       Top             =   1935
  319.       Width           =   3015
  320.    End
  321.    Begin VB.TextBox txtRecipe 
  322.       BackColor       =   &H00FFFF80&
  323.       BeginProperty Font 
  324.          Name            =   "Comic Sans MS"
  325.          Size            =   8.25
  326.          Charset         =   0
  327.          Weight          =   700
  328.          Underline       =   0   'False
  329.          Italic          =   0   'False
  330.          Strikethrough   =   0   'False
  331.       EndProperty
  332.       Height          =   285
  333.       Left            =   4440
  334.       TabIndex        =   2
  335.       Top             =   1335
  336.       Width           =   3015
  337.    End
  338.    Begin MSComctlLib.TreeView Tv 
  339.       Height          =   5775
  340.       Left            =   120
  341.       TabIndex        =   0
  342.       Top             =   495
  343.       Width           =   4215
  344.       _ExtentX        =   7435
  345.       _ExtentY        =   10186
  346.       _Version        =   393217
  347.       HideSelection   =   0   'False
  348.       Indentation     =   88
  349.       LabelEdit       =   1
  350.       Style           =   7
  351.       Checkboxes      =   -1  'True
  352.       HotTracking     =   -1  'True
  353.       ImageList       =   "ImageList1"
  354.       Appearance      =   1
  355.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  356.          Name            =   "Comic Sans MS"
  357.          Size            =   8.25
  358.          Charset         =   0
  359.          Weight          =   700
  360.          Underline       =   0   'False
  361.          Italic          =   0   'False
  362.          Strikethrough   =   0   'False
  363.       EndProperty
  364.    End
  365.    Begin MSComctlLib.ImageList imlToolbarIcons 
  366.       Left            =   10350
  367.       Top             =   750
  368.       _ExtentX        =   1005
  369.       _ExtentY        =   1005
  370.       BackColor       =   -2147483643
  371.       ImageWidth      =   16
  372.       ImageHeight     =   16
  373.       MaskColor       =   12632256
  374.       _Version        =   393216
  375.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  376.          NumListImages   =   21
  377.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.             Picture         =   "frmMain.frx":22EC
  379.             Key             =   "DISKS04"
  380.          EndProperty
  381.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.             Picture         =   "frmMain.frx":273E
  383.             Key             =   "TRAFFIC"
  384.          EndProperty
  385.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.             Picture         =   "frmMain.frx":2B90
  387.             Key             =   "Print"
  388.          EndProperty
  389.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.             Picture         =   "frmMain.frx":30D2
  391.             Key             =   "TRASH02A"
  392.          EndProperty
  393.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.             Picture         =   "frmMain.frx":3524
  395.             Key             =   "TRASH02B"
  396.          EndProperty
  397.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.             Picture         =   "frmMain.frx":3976
  399.             Key             =   "MISC33"
  400.          EndProperty
  401.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.             Picture         =   "frmMain.frx":3DC8
  403.             Key             =   "MISC29"
  404.          EndProperty
  405.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.             Picture         =   "frmMain.frx":421A
  407.             Key             =   "ARW05DN"
  408.          EndProperty
  409.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.             Picture         =   "frmMain.frx":466C
  411.             Key             =   "ARW05UP"
  412.          EndProperty
  413.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.             Picture         =   "frmMain.frx":4ABE
  415.             Key             =   "FILES03B"
  416.          EndProperty
  417.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.             Picture         =   "frmMain.frx":4F10
  419.             Key             =   "FILES04"
  420.          EndProperty
  421.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.             Picture         =   "frmMain.frx":5362
  423.             Key             =   "CIRC1"
  424.          EndProperty
  425.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.             Picture         =   "frmMain.frx":567C
  427.             Key             =   "CIRC2"
  428.          EndProperty
  429.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.             Picture         =   "frmMain.frx":5996
  431.             Key             =   "CIRC3"
  432.          EndProperty
  433.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.             Picture         =   "frmMain.frx":5CB0
  435.             Key             =   "MISC34"
  436.          EndProperty
  437.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.             Picture         =   "frmMain.frx":6102
  439.             Key             =   ""
  440.          EndProperty
  441.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.             Picture         =   "frmMain.frx":6554
  443.             Key             =   "MISC36"
  444.          EndProperty
  445.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.             Picture         =   "frmMain.frx":69A6
  447.             Key             =   "MISC37"
  448.          EndProperty
  449.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.             Picture         =   "frmMain.frx":6DF8
  451.             Key             =   "W95MBX01"
  452.          EndProperty
  453.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.             Picture         =   "frmMain.frx":724A
  455.             Key             =   "MISC01"
  456.          EndProperty
  457.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.             Picture         =   "frmMain.frx":769C
  459.             Key             =   ""
  460.          EndProperty
  461.       EndProperty
  462.    End
  463.    Begin VB.Label lblCategory 
  464.       AutoSize        =   -1  'True
  465.       BackStyle       =   0  'Transparent
  466.       Caption         =   "Category"
  467.       ForeColor       =   &H00FFFFFF&
  468.       Height          =   195
  469.       Left            =   4440
  470.       TabIndex        =   9
  471.       Top             =   495
  472.       Width           =   765
  473.    End
  474.    Begin VB.Image Image1 
  475.       Height          =   2055
  476.       Left            =   7500
  477.       Picture         =   "frmMain.frx":7AEE
  478.       Stretch         =   -1  'True
  479.       Top             =   450
  480.       Width           =   3495
  481.    End
  482.    Begin VB.Label lblInstructions 
  483.       AutoSize        =   -1  'True
  484.       BackStyle       =   0  'Transparent
  485.       Caption         =   "Preparation Instructions"
  486.       ForeColor       =   &H00FFFFFF&
  487.       Height          =   195
  488.       Left            =   4440
  489.       TabIndex        =   8
  490.       Top             =   2295
  491.       Width           =   2040
  492.    End
  493.    Begin VB.Label lblAuthor 
  494.       AutoSize        =   -1  'True
  495.       BackStyle       =   0  'Transparent
  496.       Caption         =   "Author"
  497.       ForeColor       =   &H00FFFFFF&
  498.       Height          =   195
  499.       Left            =   4425
  500.       TabIndex        =   7
  501.       Top             =   1695
  502.       Width           =   570
  503.    End
  504.    Begin VB.Label lblName 
  505.       AutoSize        =   -1  'True
  506.       BackStyle       =   0  'Transparent
  507.       Caption         =   "Recipe Name"
  508.       ForeColor       =   &H00FFFFFF&
  509.       Height          =   195
  510.       Left            =   4440
  511.       TabIndex        =   6
  512.       Top             =   1095
  513.       Width           =   1155
  514.    End
  515.    Begin VB.Menu mnuMain 
  516.       Caption         =   "&Recipe Main Menu"
  517.       Begin VB.Menu mnuSave 
  518.          Caption         =   "Save Recipe"
  519.       End
  520.       Begin VB.Menu mnuPrint 
  521.          Caption         =   "Print Out Recipe"
  522.       End
  523.       Begin VB.Menu mnuAdd 
  524.          Caption         =   "Add New Recipe"
  525.       End
  526.       Begin VB.Menu mnuDelRec 
  527.          Caption         =   "Delete Checked Recipes"
  528.       End
  529.       Begin VB.Menu mnuDelCat 
  530.          Caption         =   "Delete Catagory From DataBase"
  531.       End
  532.       Begin VB.Menu mnuAddCat 
  533.          Caption         =   "Add Recipe Catagory to DataBase"
  534.       End
  535.       Begin VB.Menu mnuSeparator0 
  536.          Caption         =   "-"
  537.       End
  538.       Begin VB.Menu mnuBkUp 
  539.          Caption         =   "BackUp Recipe DataBase"
  540.       End
  541.       Begin VB.Menu mnuRestore 
  542.          Caption         =   "Restore DataBase from BackUp"
  543.       End
  544.       Begin VB.Menu mnuSeparator1 
  545.          Caption         =   "-"
  546.       End
  547.       Begin VB.Menu mnuImport 
  548.          Caption         =   "&Import Recipes"
  549.       End
  550.       Begin VB.Menu mnuExport 
  551.          Caption         =   "&Export Checked Recipes"
  552.       End
  553.       Begin VB.Menu mnuSeparator2 
  554.          Caption         =   "-"
  555.       End
  556.       Begin VB.Menu mnuExit 
  557.          Caption         =   "E&xit Application"
  558.       End
  559.    End
  560.    Begin VB.Menu mnuSearch 
  561.       Caption         =   "&Search"
  562.       Begin VB.Menu mnuSearchEQ 
  563.          Caption         =   "Search Epicurious Recipes"
  564.       End
  565.       Begin VB.Menu mnuSearchFoodTV 
  566.          Caption         =   "Search FoodTv Recipes"
  567.       End
  568.       Begin VB.Menu mnuSearchQVC 
  569.          Caption         =   "Search QVC Recipes"
  570.       End
  571.       Begin VB.Menu mnuSearchHungryMonster 
  572.          Caption         =   "Search HungryMonster"
  573.       End
  574.    End
  575. Attribute VB_Name = "FrmMain"
  576. Attribute VB_GlobalNameSpace = False
  577. Attribute VB_Creatable = False
  578. Attribute VB_PredeclaredId = True
  579. Attribute VB_Exposed = False
  580. Private Sub cmdNormalize_Click()
  581.     Normalize
  582.     MsgBox "Done."
  583. End Sub
  584. Private Sub Form_Load()
  585.     'Compact Database
  586.     Dim strSource As String
  587.     Dim strTarget As String
  588.     strSource = App.Path & "\Recipe.mdb"
  589.     strTarget = App.Path & "\Compact.mdb"
  590.     DBEngine.CompactDatabase strSource, strTarget
  591.     'Delete Old Database
  592.     Kill (strSource)
  593.     'Copy the Compact.mdb DataBase back to Recipes.mdb
  594.     FileCopy strTarget, strSource
  595.     'Kill Old Compact
  596.     Kill (strTarget)
  597.     'Call function to load the DataBase catagories and Records
  598.     'into the Treeview
  599.     StartIt
  600. End Sub
  601. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  602.     'just incase user has one last change to add
  603.     CloseRs
  604. End Sub
  605. Private Sub Form_Resize()
  606. 'form withd at startup 11130
  607.     If Me.WindowState = vbMinimized Then Exit Sub
  608.     If (Width - 7050) > 4080 Then
  609.         If (Width - 7050) > 5190 Then
  610.             Tv.Width = 5190
  611.             Me.txtInstructions.Width = Me.Width - Tv.Width - 420
  612.         Else
  613.             Tv.Width = (Width - 7050) + 120
  614.             Me.txtInstructions.Width = Me.Width - Tv.Width - 420
  615.         End If
  616.     Else
  617.         Tv.Width = 4215
  618.     End If
  619.     If Me.Height - Toolbar1.Height - 900 - StatusBar1.Height >= 500 Then
  620.         Tv.Height = Me.Height - Toolbar1.Height - 900 - StatusBar1.Height
  621.     Else
  622.         Tv.Height = 500
  623.     End If
  624.     'If Me.Height > 3825 Then
  625.     If Me.Height - Toolbar1.Height - Image1.Height - 880 - StatusBar1.Height > 285 Then
  626.         Me.txtInstructions.Height = Me.Height - Toolbar1.Height - Image1.Height - 880 - StatusBar1.Height
  627.     Else
  628.         Me.txtInstructions.Height = 285
  629.     End If
  630.     Me.txtAuthor.Left = Me.Tv.Width + 240
  631.     Me.txtCategory.Left = Me.Tv.Width + 240
  632.     Me.txtRecipe.Left = Me.Tv.Width + 240
  633.     Me.txtAuthor.Width = Me.txtInstructions.Width - 3480
  634.     Me.txtCategory.Width = Me.txtInstructions.Width - 3480
  635.     Me.txtRecipe.Width = Me.txtInstructions.Width - 3480
  636.     If Me.Width > 11130 Then
  637.         Me.Image1.Left = Me.txtAuthor.Left + Me.txtAuthor.Width ' + 100
  638.     Else
  639.         Me.Image1.Left = 7500
  640.     End If
  641.     Me.txtInstructions.Left = Me.Tv.Width + 240
  642.     Me.lblCategory.Left = Me.Tv.Width + 240
  643.     Me.lblAuthor.Left = Me.Tv.Width + 240
  644.     Me.lblInstructions.Left = Me.Tv.Width + 240
  645.     Me.lblName.Left = Me.Tv.Width + 240
  646. End Sub
  647. Private Sub Form_Unload(Cancel As Integer)
  648.     Unload Me
  649. End Sub
  650. Private Sub mnuAdd_Click()
  651.     On Error Resume Next
  652.     Dim I As Integer
  653.     'User wants to add a Record
  654.     'Makes sure user has choosen a Catagory to add a Record to
  655.     If Mid(Tv.SelectedItem.Key, 1, 3) <> "Cat" Then
  656.         MsgBox "Please Select a Category before choosing to Add a Recipe"
  657.         Exit Sub
  658.     End If
  659.     rstRecipes.AddNew
  660.     mnuMain.Enabled = False
  661.     mnuSearch.Enabled = False
  662.     For I = 2 To Toolbar1.Buttons.Count Step 1
  663.         Toolbar1.Buttons(I).Enabled = False
  664.     Next I
  665.     Tv.Enabled = False
  666.     Toolbar1.Buttons(1).Enabled = True
  667.     txtCategory = Tv.SelectedItem.Text
  668. End Sub
  669. Private Sub mnuAddCat_Click()
  670.     'Call Function to add a Catagory (Table)
  671.     AddCat ("")
  672. End Sub
  673. Private Sub mnuBkUp_Click()
  674.     'User wants to BackUp the DataBase
  675.     'Call Function to Create the Directory
  676.     DirMk
  677.     'Change the mouse Pointer to an HourGlass
  678.     FrmMain.MousePointer = 11
  679.     'Make sure all Open Files are Closed
  680.     Close
  681.     If Dir(App.Path & "\BackUpDB.bat") > "" Then Kill (App.Path & "\BackUpDB.bat")
  682.     If Dir(App.Path & "\DataBackup\BackUp.mdb") > "" Then Kill (App.Path & "\DataBackup\BackUp.mdb")
  683.     'Copy the DataBase to the DataBackup dir
  684.     FileCopy App.Path & "\Recipe.mdb", App.Path & "\DataBackup\BackUp.mdb"
  685.     'Change the Mouse Pointer back to standard
  686.     FrmMain.MousePointer = 0
  687.     'let user know DataBase has been Backed Up
  688.     MsgBox "DataBase Successfully Backed Up to " & App.Path & "\DataBackup\BackUp.mdb"
  689. End Sub
  690. Private Sub mnuDelCat_Click()
  691.     'user wants to delete a Catagory
  692.     DelCat
  693. End Sub
  694. Private Sub mnuDelRec_Click()
  695.     'User wants to delete the shown Record
  696.     Dim intResult As String
  697.     intResult = MsgBox("Are you sure you want to delete all Checked Recipes? " _
  698.                       , vbQuestion + vbOKCancel, "Confirm Recipe Delete")
  699.     If intResult = 0 Then Exit Sub
  700.     DelRec
  701. End Sub
  702. Private Sub mnuExit_Click()
  703.     'User wants exit the Program
  704.     Unload Me
  705. End Sub
  706. Private Sub mnuExport_Click()
  707.     Dim lngExportCount As Long
  708.     'Create a database to hold the Info
  709.     CreateExportDB
  710.     'Establish Connection String
  711.     strXCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & App.Path & _
  712.              "\Export.mdb"";Mode=ReadWrite;Persist Security Info=False;" & _
  713.              "Jet OLEDB:Compact Without Replica Repair=False"
  714.     Set cnnExport = New ADODB.Connection
  715.     Set rstExport = New ADODB.Recordset
  716.     'Test if connection not open.  If not open it.
  717.     If cnnExport.State = adStateClosed Then
  718.         cnnExport.CursorLocation = adUseClient
  719.         cnnExport.Open strXCnn
  720.     End If
  721.     'Populate Recordset.
  722.     rstExport.Open "Export", cnnExport, adOpenDynamic, adLockBatchOptimistic, adCmdTable
  723.     'Put the info into the database
  724.     For I = 1 To (intTtlRecipeCount + intTtlCategories)
  725.         If Tv.Nodes.Item(I).Checked = True Then
  726.             If InStr(1, Tv.Nodes.Item(I).Key, "_") Then
  727.                 rstRecipes.AbsolutePosition = ((Replace(Tv.Nodes.Item(I).Key, "_", "")) + 1)
  728.                 rstExport.AddNew
  729.                 rstExport.Fields(0).Value = 1
  730.                 rstExport.Fields(1).Value = txtCategory & " "
  731.                 rstExport.Fields(2).Value = txtRecipe & " "
  732.                 rstExport.Fields(3).Value = txtAuthor & " "
  733.                 rstExport.Fields(4).Value = txtInstructions & " "
  734.                 lngExportCount = lngExportCount + 1
  735.             End If
  736.         End If
  737.     Next
  738.     rstExport.UpdateBatch
  739.     Set rstExport.ActiveConnection = Nothing
  740.     Set cnnExport = Nothing
  741.     If lngExportCount <= 0 Then
  742.         MsgBox "You have not exported any recipes.  You may want to try again and be sure " & _
  743.                "that you have placed a Check Mark next to the recipes that you have chosen to export." _
  744.                , vbQuestion + vbOKOnly, "No Recipes Exported"
  745.     Else
  746.         MsgBox "You have successfully exported " & lngExportCount & " records to " & _
  747.                " the " & App.Path & "\Export.mdb file." & _
  748.                vbCrLf & vbCrLf & vbCrLf & "Be sure to tell the person that you " & _
  749.                "are sending this to that they must place the Export.mdb file " & _
  750.                "into the folder that they installed the application to in order " & _
  751.                "successfully be able to import it into their Recipes database." _
  752.                , vbCritical + vbOKOnly, "Export Completed"
  753.     End If
  754. End Sub
  755. Private Sub mnuImport_Click()
  756.     On Error Resume Next
  757.     If Dir(App.Path & "\Export.mdb") <= "" Then
  758.         MsgBox "You must place your Export.mdb file in the application path " & _
  759.                "before you can continue. " & vbCrLf & vbCrLf & vbCrLf & App.Path _
  760.                , vbCritical + vbOKOnly, "Import Error"
  761.     End If
  762.     cnnRecipe.Open strCnn                           'reopen connection
  763.     Set rstRecipes.ActiveConnection = cnnRecipe     'reconnect recordset
  764.     rstRecipes.UpdateBatch                          'Update Recipes
  765.     Set rstRecipes.ActiveConnection = Nothing
  766.     cnnRecipe.Close
  767.     frmImport.Show vbModal, Me
  768. End Sub
  769. Private Sub mnuPrint_Click()
  770. 'User wants to Print the Record Shown
  771. 'Make sure has choosen a record to Print
  772. If Trim(txtRecipe) = "" Then
  773.     MsgBox "Please first select a recipe to print.", vbOKOnly + vbInformation, "What Recipe?"
  774.     Exit Sub
  775. End If
  776. 'Make sure all Open Files are Closed
  777. Close
  778. 'Create a File to Hold the Info
  779. Open App.Path & "\print.txt" For Output As #1
  780. 'Put the info into the File
  781. Print #1, "Name: " & Trim(txtRecipe)
  782. Print #1, ""
  783. Print #1, "Author: " & Trim(txtAuthor)
  784. Print #1, ""
  785. Print #1, ""
  786. Print #1, "Instructions:"
  787. Print #1, Trim(txtInstructions)
  788. 'Close the File
  789. Close #1
  790. 'Make sure all open files are Closed
  791. Close
  792. 'Open the Htm file used by the FrmPrint Form
  793. Open App.Path & "\print.htm" For Output As #1
  794. 'Open the Created File to get the Info from
  795. Open App.Path & "\print.txt" For Input As #2
  796. 'Put the Header into #1 File
  797. Print #1, "<HTML>"
  798. Print #1, "<HEAD>"
  799. Print #1, "    <TITLE>My Recipes by Tom Wiliams Jr.</TITLE>"
  800. Print #1, "</HEAD>"
  801. Print #1, "<BODY><FONT SIZE=" & Chr(34) & "3" & Chr(34) & " FACE=" & Chr(34) & "Comic Sans MS" & Chr(34) & ">"
  802. Print #1, "<Marquee Behavior=ALTERNATE SCROLLDELAY=5 SCROLLAMOUNT=5 " & _
  803.           "TITLE=""Tom's Killer Visual Basic Coding""> Printed " & _
  804.           "from the ""My Recipes Application"" coded by <B><I>Tom Williams Jr.</B></I></U></MARQUEE><br><br><B>"
  805. 'Get the Info from File #2
  806. Do Until EOF(2)
  807. Line Input #2, a$
  808. 'Put the Info from File #2 into File #1
  809. Print #1, a$ & "<br>"
  810. 'Put in the Tail for File #1
  811. Print #1, "</B></FONT></BODY>"
  812. Print #1, "</HTML>"
  813. 'Close Opened Files
  814. Close #1
  815. Close #2
  816. 'set the caption for FrmPrint Form
  817. FrmPrint.Caption = "Print Current Recipe or Search For Other Recipes..."
  818. 'Call the Print Form
  819. FrmPrint.Show
  820. 'Open the Htm file Created from the FrmMain
  821. FrmPrint.WB.Navigate App.Path & "\print.htm"
  822. End Sub
  823. Private Sub mnuRestore_Click()
  824.     'User wants to Restore the DataBase from the BackUp DataBase
  825.     'Call Function to Create the Directory Just incase
  826.     'so Program want error out
  827.     DirMk
  828.     'make sure file is not already opened
  829.     Close
  830.     'Check to be sure user has backed up the DataBase
  831.     Open App.Path & "\DataBkUp\BackUp.mdb" For Binary As #1
  832.     If LOF(1) = 0 Then
  833.         Close #1
  834.         Kill App.Path & "\DataBkUp\BackUp.mdb"
  835.         MsgBox "Sorry, No Backup Exists To Restore From"
  836.         Exit Sub
  837.     End If
  838.     'Make sure all Open Files are Closed
  839.     Close
  840.     'Let the User know that this action will Over Write The Present
  841.     'DataBase
  842.     Dim Msg, Style, Title, Response
  843.     Msg = "WARNNING !!!" & vbCrLf & _
  844.         "This Action will OVER WRITE Your Recipe DataBase" & vbCrLf & _
  845.         "With Your Latest BackUp DataBase" & vbCrLf & _
  846.         "DO YOU WANT TO CONTINUE ?"
  847.     Style = vbYesNo + vbCritical + vbDefaultButton2
  848.     Title = "Restore DataBase"
  849.     Response = MsgBox(Msg, Style, Title)
  850.     If Response = vbYes Then
  851.         
  852.         'Call Function To close the DataBase just in case it
  853.         'is Open somwhere
  854.         CloseRs
  855.         
  856.         'Change the Mouse Pointer to an HourGlass
  857.         FrmMain.MousePointer = 11
  858.         
  859.         'Copy the BackUp DataBase to the app.Path as the Recipe.mdb
  860.         FileCopy App.Path & "\DataBkUp\BackUp.mdb", App.Path & "\Recipe.mdb"
  861.         
  862.         'Change the Mouse Pointer back to standard
  863.         FrmMain.MousePointer = 0
  864.         
  865.         'Call Function to Load the New DataBase into the Treeview
  866.         StartIt
  867.     End If
  868. End Sub
  869. Private Sub mnuSave_Click()
  870.     On Error Resume Next
  871.     If txtCategory = "" _
  872.      Or txtRecipe = "" _
  873.       Or txtAuthor = "" _
  874.        Or txtInstructions = "" Then
  875.             MsgBox "Please fill in all of the recipe information."
  876.             Exit Sub
  877.     End If
  878.     Tv.Nodes.Add Tv.SelectedItem, tvwChild, intTtlRecipeCount & "_", txtRecipe, 4, 3
  879.     intTtlRecipeCount = intTtlRecipeCount + 1
  880.     rstRecipes.Update
  881.     Me.mnuMain.Enabled = True
  882.     Me.mnuSearch.Enabled = True
  883.     Me.Tv.Enabled = True
  884.     Me.Toolbar1.Buttons(1).Enabled = False
  885.     For I = 2 To Toolbar1.Buttons.Count Step 1
  886.         Toolbar1.Buttons(I).Enabled = True
  887.     Next I
  888.     'let user know Record has been added
  889.     MsgBox "Recipe Added"
  890. End Sub
  891. Private Sub Timer1_Timer()
  892.     StatusBar1.Panels(1) = Time
  893.     If StatusBar1.Panels(2) <> Date Then
  894.         StatusBar1.Panels(2) = Date
  895.     End If
  896.     If StatusBar1.Panels(3) <> intCatRecipeCount & " Current Category Recipes" Then
  897.         StatusBar1.Panels(3) = intCatRecipeCount & " Current Category Recipes"
  898.     End If
  899.     If StatusBar1.Panels(4) <> intTtlRecipeCount & " Total Recipes" Then
  900.         StatusBar1.Panels(4) = intTtlRecipeCount & " Total Recipes"
  901.     End If
  902.     If StatusBar1.Panels(5) <> intTtlCategories & " Total Categories" Then
  903.         StatusBar1.Panels(5) = intTtlCategories & " Total Categories"
  904.     End If
  905. End Sub
  906. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  907.     Select Case Button.Key
  908.         Case "save"
  909.             mnuSave_Click
  910.         Case "exit"
  911.             mnuExit_Click
  912.         Case "print"
  913.             mnuPrint_Click
  914.         Case "deleterecipe"
  915.             mnuDelRec_Click
  916.         Case "deletecategory"
  917.             mnuDelCat_Click
  918.         Case "insertrecipe"
  919.             mnuAdd_Click
  920.         Case "insertcategory"
  921.             mnuAddCat_Click
  922.         Case "importrecipe"
  923.             mnuImport_Click
  924.         Case "exportrecipe"
  925.             mnuExport_Click
  926.         Case "backup"
  927.             mnuBkUp_Click
  928.         Case "restore"
  929.             mnuRestore_Click
  930.         Case "searchepecurious"
  931.             SearchEQ
  932.         Case "searchfoodtv"
  933.             SearchFoodTV
  934.         Case "searchqvcrecipes"
  935.             SearchQVC
  936.         Case "searchhungrymonster"
  937.             SearchHungryMonster
  938.         Case "searchcopykat"
  939.             SearchCopyKat
  940.         Case "searchcdkitchen"
  941.             SearchCDKitchen
  942.     End Select
  943. End Sub
  944. Private Sub Tv_DragDrop(Source As Control, X As Single, y As Single)
  945.     On Error Resume Next
  946.     Dim intRec As Integer
  947.     If Mid(SourceNode.Key, 1, 3) = "Cat" Then Exit Sub
  948.     If SourceNode.Key = "BOOK" Then Exit Sub
  949.     ' If it's the same as last time, do nothing.
  950.     If Tv.SelectedItem Is Tv.DropHighlight Then Exit Sub
  951.     intRec = Replace(SourceNode.Key, "_", "") + 1
  952.     If Not (Tv.DropHighlight Is Nothing) Then
  953.         ' It's a valid drop. Set source node's
  954.         ' parent to be the target node.
  955.         If Mid(Tv.DropHighlight.Key, 1, 3) = "Cat" Then
  956.             Set SourceNode.Parent = Tv.DropHighlight
  957.             rstRecipes.AbsolutePosition = intRec
  958.             rstRecipes.Fields(0) = Tv.DropHighlight.Text
  959.             txtCategory = Tv.DropHighlight.Text
  960.         Else
  961.             Tv.Nodes.Remove (SourceNode.Index)
  962.             Tv.Nodes.Add Tv.DropHighlight, tvwNext, _
  963.             SourceNode.Key, SourceNode.Text, SourceNode.Image, _
  964.             SourceNode.SelectedImage
  965.             rstRecipes.AbsolutePosition = intRec
  966.             rstRecipes.Fields(0) = Tv.DropHighlight.Parent.Text
  967.             txtCategory = Tv.DropHighlight.Parent.Text
  968.         End If
  969.         rstRecipes.Update
  970.         Set Tv.DropHighlight = Nothing
  971.     End If
  972.     Set SourceNode = Nothing
  973. End Sub
  974. Private Sub Tv_DragOver(Source As Control, X As Single, y As Single, State As Integer)
  975.     On Error Resume Next
  976.     Dim target As Node
  977.     Dim highlight As Boolean
  978.     ' See what node we're above.
  979.     Set target = Tv.HitTest(X, y)
  980.     ' If it's the same as last time, do nothing.
  981.     If target Is TargetNode Then Exit Sub
  982.     Set TargetNode = target
  983.     highlight = False
  984.     If Not (TargetNode Is Nothing) Then
  985.         ' See what kind of node were above.
  986.         highlight = True
  987.     End If
  988.     If highlight Then
  989.         Set Tv.DropHighlight = TargetNode
  990.     Else
  991.         Set Tv.DropHighlight = Nothing
  992.     End If
  993. End Sub
  994. Private Sub Tv_Expand(ByVal Node As MSComctlLib.Node)
  995.     Node.Selected = True
  996. End Sub
  997. Private Sub Tv_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
  998.     ' Set the item being dragged.
  999.     Set SourceNode = Tv.HitTest(X, y)
  1000. End Sub
  1001. Private Sub Tv_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
  1002.     If Button = vbLeftButton Then
  1003.         ' Start a new drag.
  1004.         If y = Tv.Height Then
  1005.             
  1006.         End If
  1007.         
  1008.         ' Select this node. When no node is highlighted,
  1009.         ' this node will be displayed as selected. That
  1010.         ' shows where it will land if dropped.
  1011.         Set Tv.SelectedItem = SourceNode
  1012.         ' Fire the Begin Drag
  1013.         Tv.Drag vbBeginDrag
  1014.     End If
  1015. End Sub
  1016. Private Sub Tv_NodeCheck(ByVal Node As MSComctlLib.Node)
  1017.     Dim I As Integer
  1018.     Select Case Mid(Node.Key, 1, 3)
  1019.     Case "Cat"
  1020.         If Node.Checked = True Then
  1021.             For I = 1 To Node.Children
  1022.                 Tv.Nodes(Node.Index + I).Checked = True
  1023.             Next
  1024.         Else
  1025.             For I = 1 To Node.Children
  1026.                 Tv.Nodes(Node.Index + I).Checked = False
  1027.             Next
  1028.         End If
  1029.     Case "BOO"
  1030.         If Node.Checked = True Then
  1031.             For I = 1 To intTtlRecipeCount + intTtlCategories
  1032.                 Tv.Nodes(Node.Index + I).Checked = True
  1033.             Next
  1034.         Else
  1035.             For I = 1 To intTtlRecipeCount + intTtlCategories
  1036.                 Tv.Nodes(Node.Index + I).Checked = False
  1037.             Next
  1038.         End If
  1039.     End Select
  1040.         
  1041. End Sub
  1042. Private Sub Tv_NodeClick(ByVal Node As MSComctlLib.Node)
  1043.     'this is what does the stuff when a user click on
  1044.     'a Itemin the TreeView
  1045.         Select Case Mid(Node.Key, 1, 3)
  1046.             Case "BOO"
  1047.                 'we do nothing here
  1048.             Case "Cat"
  1049.                 'If user clicks Catagory then populate category count Variable
  1050.                 intCatRecipeCount = Node.Children
  1051.             Case Else
  1052.                 If rstRecipes.AbsolutePosition < 0 Then
  1053.                     rstRecipes.MoveFirst
  1054.                 End If
  1055.                 If Node.Key = "0_" Then
  1056.                     rstRecipes.MoveFirst
  1057.                 Else
  1058.                     rstRecipes.AbsolutePosition = ((Replace(Node.Key, "_", "")) + 1)
  1059.                 End If
  1060.                 intCatRecipeCount = Node.Parent.Children
  1061.         End Select
  1062. End Sub
  1063. Private Sub txtAuthor_Change()
  1064.     If Len(txtAuthor) > 75 Then
  1065.         txtAuthor = Mid(txtAuthor, 1, 75)
  1066.         txtAuthor.SelStart = 75
  1067.         Beep
  1068.     End If
  1069. End Sub
  1070. Private Sub txtAuthor_LostFocus()
  1071.     txtAuthor = Proper(txtAuthor)
  1072.     If Not rstRecipes.EOF And Not rstRecipes.BOF Then
  1073.         rstRecipes.Update
  1074.     End If
  1075. End Sub
  1076. Private Sub txtCategory_Change()
  1077.     If Len(txtCategory) > 75 Then
  1078.         txtCategory = Mid(txtCategory, 1, 75)
  1079.         txtCategory.SelStart = 75
  1080.         Beep
  1081.     End If
  1082. End Sub
  1083. Private Sub txtInstructions_LostFocus()
  1084.     If Not rstRecipes.EOF And Not rstRecipes.BOF Then
  1085.         rstRecipes.Update
  1086.     End If
  1087. End Sub
  1088. Private Sub txtRecipe_Change()
  1089.     If Len(txtRecipe) > 75 Then
  1090.         txtRecipe = Mid(txtRecipe, 1, 75)
  1091.         txtRecipe.SelStart = 75
  1092.         Beep
  1093.     End If
  1094. End Sub
  1095. Private Sub txtRecipe_LostFocus()
  1096.     txtRecipe = Proper(txtRecipe)
  1097.     If Not rstRecipes.EOF And Not rstRecipes.BOF Then
  1098.         rstRecipes.Update
  1099.     End If
  1100. End Sub
  1101.